home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / demo / Reflections4De.lha / Ref4Demo / skripte.lha / kopf_1.skr < prev    next >
Text File  |  1996-08-11  |  4KB  |  232 lines
  1. REFSKRIPT
  2.  
  3. OBJ_NEW Kopf 6
  4. GET_RESULT create_name
  5.  
  6. Plot_Persp
  7. PLOT_SCHRAEG
  8. PKL_ADD KOPF
  9.  
  10. ;********Punkte erzeugen************
  11. GEO_new_pt create_name
  12. GET_RESULT ptnr
  13. GEO_SET_PT create_name  ptnr -14.000000 15.000000 0.000000
  14. GEO_SELECT_PT KOPF ptnr
  15. PRINT Punkt ptnr
  16.  
  17. GEO_new_pt create_name
  18. GET_RESULT ptnr
  19. GEO_SET_PT create_name  ptnr -18.000000 11.000000 0.000000
  20.  
  21. Plot_Schraeg
  22. GEO_SELECT_PT KOPF ptnr
  23. PRINT Punkt ptnr
  24. Plot_persp
  25. Wait_SECS 0.1
  26.  
  27. GEO_new_pt create_name
  28. GET_RESULT ptnr
  29. GEO_SET_PT create_name  ptnr -18.000000 0.000000 0.000000
  30.  
  31. Plot_Schraeg
  32. GEO_SELECT_PT KOPF ptnr
  33. PRINT Punkt ptnr
  34. Plot_persp
  35. WAIT_SECS 0.1
  36.  
  37. GEO_new_pt create_name
  38. GET_RESULT ptnr
  39. GEO_SET_PT create_name  ptnr -14.000000 -8.000000 0.000000
  40.  
  41. Plot_Schraeg
  42. GEO_SELECT_PT KOPF ptnr
  43. PRINT Punkt ptnr
  44. Plot_persp
  45. WAIT_SECS 0.1
  46.  
  47. GEO_new_pt create_name
  48. GET_RESULT ptnr
  49. GEO_SET_PT create_name  ptnr -7.000000 -15.000000 0.000000
  50.  
  51. Plot_Schraeg
  52. GEO_SELECT_PT KOPF ptnr
  53. PRINT Punkt ptnr
  54. Plot_persp
  55. WAIT_SECS 0.1
  56.  
  57. GEO_new_pt create_name
  58. GET_RESULT ptnr
  59. GEO_SET_PT create_name  ptnr 5.000000 -15.000000 0.000000
  60.  
  61. Plot_Schraeg
  62. GEO_SELECT_PT KOPF ptnr
  63. PRINT Punkt ptnr
  64. Plot_persp
  65. WAIT_SECS 0.1
  66.  
  67. GEO_new_pt create_name
  68. GET_RESULT ptnr
  69. GEO_SET_PT create_name  ptnr 17.000000 -14.000000 0.000000
  70.  
  71. Plot_Schraeg
  72. GEO_SELECT_PT KOPF ptnr
  73. PRINT Punkt ptnr
  74. Plot_persp
  75. WAIT_SECS 0.1
  76.  
  77. GEO_new_pt create_name
  78. GET_RESULT ptnr
  79. GEO_SET_PT create_name  ptnr 19.000000 -12.000000 0.000000
  80.  
  81. Plot_Schraeg
  82. GEO_SELECT_PT KOPF ptnr
  83. PRINT Punkt ptnr
  84. Plot_persp
  85. WAIT_SECS 0.1
  86.  
  87. GEO_new_pt create_name
  88. GET_RESULT ptnr
  89. GEO_SET_PT create_name  ptnr 20.000000 -9.000000 0.000000
  90.  
  91. Plot_Schraeg
  92. GEO_SELECT_PT KOPF ptnr
  93. PRINT Punkt ptnr
  94. Plot_persp
  95. WAIT_SECS 0.1
  96.  
  97. GEO_new_pt create_name
  98. GET_RESULT ptnr
  99. GEO_SET_PT create_name  ptnr 20.000000 -3.000000 0.000000
  100.  
  101. Plot_Schraeg
  102. GEO_SELECT_PT KOPF ptnr
  103. PRINT Punkt ptnr
  104. Plot_persp
  105. WAIT_SECS 0.1
  106.  
  107. GEO_new_pt create_name
  108. GET_RESULT ptnr
  109. GEO_SET_PT create_name  ptnr 19.000000 2.000000 0.000000
  110.  
  111. Plot_Schraeg
  112. GEO_SELECT_PT KOPF ptnr
  113. PRINT Punkt ptnr
  114. Plot_persp
  115. WAIT_SECS 0.1
  116.  
  117. GEO_new_pt create_name
  118. GET_RESULT ptnr
  119. GEO_SET_PT create_name  ptnr 18.000000 8.000000 0.000000
  120.  
  121. Plot_Schraeg
  122. GEO_SELECT_PT KOPF ptnr
  123. PRINT Punkt ptnr
  124. Plot_persp
  125. WAIT_SECS 0.1
  126.  
  127. GEO_new_pt create_name
  128. GET_RESULT ptnr
  129. GEO_SET_PT create_name  ptnr 15.000000 11.000000 0.000000
  130.  
  131. Plot_Schraeg
  132. GEO_SELECT_PT KOPF ptnr
  133. PRINT Punkt ptnr
  134. Plot_persp
  135. WAIT_SECS 0.1
  136.  
  137. GEO_new_pt create_name
  138. GET_RESULT ptnr
  139. GEO_SET_PT create_name  ptnr 11.500000 10.500000 0.000000
  140.  
  141. Plot_Schraeg
  142. GEO_SELECT_PT KOPF ptnr
  143. PRINT Punkt ptnr
  144. Plot_persp
  145. WAIT_SECS 0.1
  146.  
  147. GEO_new_pt create_name
  148. GET_RESULT ptnr
  149. GEO_SET_PT create_name  ptnr 8.000000 10.000000 0.000000
  150.  
  151. Plot_Schraeg
  152. GEO_SELECT_PT KOPF ptnr
  153. PRINT Punkt ptnr
  154. Plot_persp
  155. WAIT_SECS 0.1
  156.  
  157. GEO_new_pt create_name
  158. GET_RESULT ptnr
  159. GEO_SET_PT create_name  ptnr 6.000000 6.000000 0.000000
  160.  
  161. Plot_Schraeg
  162. GEO_SELECT_PT KOPF ptnr
  163. PRINT Punkt ptnr
  164. Plot_persp
  165. WAIT_SECS 0.1
  166.  
  167. GEO_new_pt create_name
  168. GET_RESULT ptnr
  169. GEO_SET_PT create_name  ptnr 7.000000 3.000000 0.000000
  170.  
  171. Plot_Schraeg
  172. GEO_SELECT_PT KOPF ptnr
  173. PRINT Punkt ptnr
  174. Plot_persp
  175. WAIT_SECS 0.1
  176.  
  177. GEO_new_pt create_name
  178. GET_RESULT ptnr
  179. GEO_SET_PT create_name  ptnr 6.000000 0.000000 0.000000
  180.  
  181. Plot_Schraeg
  182. GEO_SELECT_PT KOPF ptnr
  183. PRINT Punkt ptnr
  184. Plot_persp
  185. WAIT_SECS 0.1
  186.  
  187. GEO_new_pt create_name
  188. GET_RESULT ptnr
  189. GEO_SET_PT create_name  ptnr 1.000000 0.000000 0.000000
  190.  
  191. Plot_Schraeg
  192. GEO_SELECT_PT KOPF ptnr
  193. PRINT Punkt ptnr
  194. Plot_persp
  195. WAIT_SECS 0.1
  196.  
  197. GEO_new_pt create_name
  198. GET_RESULT ptnr
  199. GEO_SET_PT create_name  ptnr 2.500000 6.500000 0.000000
  200.  
  201. Plot_Schraeg
  202. GEO_SELECT_PT KOPF ptnr
  203. PRINT Punkt ptnr
  204. Plot_persp
  205. WAIT_SECS 0.1
  206.  
  207. GEO_new_pt create_name
  208. GET_RESULT ptnr
  209. GEO_SET_PT create_name  ptnr 4.000000 13.000000 0.000000
  210.  
  211. Plot_Schraeg
  212. GEO_SELECT_PT KOPF ptnr
  213. PRINT Punkt ptnr
  214. Plot_persp
  215. WAIT_SECS 0.1
  216.  
  217. GEO_new_pt create_name
  218. GET_RESULT ptnr
  219. GEO_SET_PT create_name  ptnr 2.000000 15.000000 0.000000
  220.  
  221. Plot_Schraeg
  222. GEO_SELECT_PT KOPF ptnr
  223. PRINT Punkt ptnr
  224. Plot_persp
  225. WAIT_SECS 0.1
  226.  
  227. ;Pol_Schliessen Kopf
  228. WAIT_SECS 2
  229. PLOT_SCHRAEG
  230.  
  231. Return 1
  232.